100 REM--------------------------------
110 REM   DIR/NOTEBOX  FREEWARE 1993
120 REM--------------------------------
121 REM HALLO FREUNDE! DIESES PRG DARF
122 REM EXKLUSIV - NUR - AUF MEINER
123 REM ROCKFORD-FD SERIE ERSCHEINEN!
124 REM--------------------------------
125 REM STATUS:FD/11.1993  AUTOR:A.L.
126 REM--------------------------------
127 REM ALEX ZOP, AMSELWEG 1
128 REM D-85293 REICHERTSHAUSEN A.D.ILM
129 REM--------------------------------
130 CS$=CHR$ (147):CD$=CHR$(17)
131 POKE53281,0:POKE53280,0
132 PRINT CD$CS$"[158][218][218][218][218][218][218][218][218][218][218][218][218][218][218][218][218][218][218][218][218][218][218][218][218][218][218][218][218][218][218][218][218][218][218][218][218][218][218][218][218]"CD$
140 PRINT "[145][145][158] DIRECTORY-NOTEBOX V1.0 -- AUSWAHLMENUE "
141 PRINT"[145][158][218][218][218][218][218][218][218][218][218][218][218][218][218][218][218][218][218][218][218][218][218][218][218][218][218][218][218][218][218][218][218][218][218][218][218][218][218][218][218][218]"
150 PRINT "             1[159] - LESEN"
160 PRINT "             2[159] - LOESCHEN"
170 PRINT "             3[159] - SCHREIBEN"
180 PRINT "             4[159] - BEENDEN"
181 PRINT"[158][218][218][218][218][218][218][218][218][218][218][218][218][218][218][218][218][218][218][218][218][218][218][218][218][218][218][218][218][218][218][218][218][218][218][218][218][218][218][218][218]"
182 PRINT"[145][158]     FREEWARE 12/1993  BY ALEX ZOP"
183 PRINT"[218][218][218][218][218][218][218][218][218][218][218][218][218][218][218][218][218][218][218][218][218][218][218][218][218][218][218][218][218][218][218][218][218][218][218][218][218][218][218][218]"
190 GET K$:IF K$="" THEN 190
200 IF VAL (K$)<1 OR VAL (K$)>4 THEN RUN
210 IF K$="4" THEN 710
220 ON VAL (K$) GOTO 250,320,420
230 :
240 REM---LESEN------------------------
250 PRINT"[145][159]":GOSUB 650
260 FOR I=1 TO 85:GET #2,Z$:PRINT Z$;:NEXT
270 PRINT :GOSUB 700
280 PRINT CD$"[158]----------  WEITER MIT SPACE  ----------"
290 GET K$:IF K$="" THEN 290
300 RUN
310 REM---LOESCHEN---------------------
320 PRINT "[159]  SOLL DIE NOTE WIRKLICH VON DER DISK"
321 PRINT"            GELOESCHT WERDEN?"
322 PRINT"[158]---------------- J / N[158] -----------------"
330 GET K$:IF K$="" THEN 330
340 IF K$<>"J" THEN RUN
350 GOSUB 650
360 FOR I=1 TO 85:PRINT#2,CHR$ (0);:NEXT
370 GOSUB 690
380 PRINT "[145][145][158]--------- TEXT IST GELOESCHT! ----------"
390 FOR I=0 TO 2000:NEXT :RUN
400 REM---SCHREIBEN--------------------
420 PRINT "[145][145][145][145][145][145][145][145][158]LOS GEHTS!":PRINT"[159]     < FIN"
421 PRINT"[145][145][145][145][145][145][145]"
430 OPEN 1,0:N=1:T$=""
440 GET #1,K$:IF K$="" THEN 440
450 IF K$=CHR$ (13) THEN 510
460 PRINT K$;
470 IF K$=CHR$ (20) THEN GOSUB 560:GOTO 440
480 GOSUB 590
490 T$=T$+K$:IF N>=85 THEN 510
500 N=N+1:GOTO 440
510 CLOSE 1:PRINT CD$CD$
520 INPUT"[158]---------- IST DER TEXT O.K [159](J/N)[158]---";G$
522 IF G$="J"THEN 540
523 IF G$="N"THEN 130
524 IF G$<>"" THEN PRINT"[145][145]":GOTO520
540 GOSUB 650:PRINT#2,T$;:GOSUB 690:RUN
550 REM---'DELETE'---------------------
560 L=LEN (T$)-1:T$=LEFT$ (T$,L):N=N-1
570 RETURN
580 REM---'ZEICHENZAEHLER'-------------
590 S=PEEK (211):Z=PEEK (214)
600 IF N<>1 AND S=0 THEN S=S+1
610 POKE 211,S:POKE 214,Z:SYS 58640
620 RETURN
630 REM---SEKTOR 0 IN PUFFER SCHREIBEN-
640 REM---UND PUFFERPOINTER SETZEN-----
650 OPEN 15,8,15,"I":OPEN 2,8,2,"#"
660 PRINT#15,"U1 2 0 18 0"
670 PRINT#15,"B-P 2 171":RETURN
680 REM---AUF DISK ZURUECKSCHREIBEN----
690 PRINT#15,"U2 2 0 18 0"
700 CLOSE 2:CLOSE 15:RETURN
710 INPUT"[159] WILLST DU WIRKLICH AUFHOEREN[150] (J/N)[159]";P$
711 IF P$="N" THEN 130
712 IF P$="J" THEN 730
713 IF P$<>"" THEN PRINT"[145][145][145][145][145]":GOTO 710
730 PRINT"[145][145][145][145][145][145][145]SERVUS, DU OIDA SCHLAWINA!!!!"
740 FOR H=1 TO 7000: NEXT H
745 POKE53280,6 :POKE 53281,16
750 PRINT"[147]"